From 8f7f5800d037661405303302c7d9571d88bc268b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 31 May 2002 17:43:08 +0000 Subject: [PATCH] (x_encode_text): Return stringp non-NULL if coding_system is Qcompound_text_with_extensions. --- src/xfns.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index 1e2cd65863a..cd3dcdd54fd 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -2387,6 +2387,7 @@ x_encode_text (string, coding_system, selectionp, text_bytes, stringp) int bufsize; unsigned char *buf; struct coding_system coding; + extern Lisp_Object Qcompound_text_with_extensions; charset_info = find_charset_in_text (str, chars, bytes, NULL, Qnil); if (charset_info == 0) @@ -2418,7 +2419,9 @@ x_encode_text (string, coding_system, selectionp, text_bytes, stringp) buf = (unsigned char *) xmalloc (bufsize); encode_coding (&coding, str, buf, bytes, bufsize); *text_bytes = coding.produced; - *stringp = (charset_info == 1 || !EQ (coding_system, Qcompound_text)); + *stringp = (charset_info == 1 + || (!EQ (coding_system, Qcompound_text) + && !EQ (coding_system, Qcompound_text_with_extensions))); return buf; } -- 2.30.2